home *** CD-ROM | disk | FTP | other *** search
/ Zoom 2 / Zoom - Release 2 (1996)(Active Software)[!].iso / texts / amoszine / source / mal_fade_in.amos / mal_fade_in.amosSourceCode
AMOS Source Code  |  1992-09-02  |  680b  |  30 lines
  1. '
  2. '********************************
  3. '
  4. '         IFFY FADE IN 
  5. '         ------------ 
  6. '
  7. '     By Malcolm Lavery 1993 
  8. '
  9. '********************************
  10. '
  11. EMERGE["nightmare",4,1]
  12. '
  13. Procedure EMERGE[FILE$,DES,SPEED]
  14.    '
  15.    Screen Open DES,320,256,32,Lowres
  16.    Curs Off : Flash Off : Hide On : Cls 0
  17.    Palette $0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0
  18.    Screen Open 1,320,256,32,Lowres
  19.    Curs Off : Flash Off : Hide On : Cls 0
  20.    Load "df0:iff/"+FILE$,10
  21.    Unpack 10 To 1
  22.    Screen Copy 1,0,0,320,256 To DES,0,0
  23.    Screen Hide 1
  24.    Screen DES
  25.    Fade SPEED To 1
  26.    Wait 15*SPEED
  27.    Screen Close 1
  28.    Screen 0
  29.    '
  30. End Proc